﻿Public Class MDIMain

  Private Sub MDIMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try
      frmLogin.Close()
      Me.WindowState = FormWindowState.Maximized


    Catch ex As Exception
      MessageBox.Show(ex.Message, g_sModulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      GC.Collect()
    End Try
  End Sub

  Private Sub tsbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSalir.Click
    'CerrarSession()
    End
  End Sub

  Private Sub tsmiSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiSalir.Click
    'CerrarSession()
    End
  End Sub

  Private Sub tsbNotaIngreso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbNotaIngreso.Click
    Dim oForm As New frmNotaDeIngresoListado
    Try
      oForm.MdiParent = Me
      oForm.Show()

    Catch ex As Exception
      MessageBox.Show(ex.Message, g_sModulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      oForm = Nothing : GC.Collect()
    End Try
  End Sub

  Private Sub tsbTomaInventario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbTomaInventario.Click
    Dim oForm As New frmTomaDeInventarioListado
    Try
      oForm.MdiParent = Me
      oForm.Show()

    Catch ex As Exception
      MessageBox.Show(ex.Message, g_sModulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
      oForm = Nothing : GC.Collect()
    End Try
  End Sub
End Class